Home

Row

Data

Data July 2021

Highest Brewery

NA

Overall Average Score

Total Number of Check-Ins

598

Column

Top Breweries With Minimum 5 Samples

Top States With Minimum 5 Samples

Row

Rating vs Time

Country vs Rating

Map

Table

Summary

Column {data-width = 100}

Maximum Rating

Standard Deviation of Rating

About Report

Created by Marcin W. Cencek

marcin.cencek@gmail.com

---
title: "Marcin Cencek"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    social: ["linkedin"]
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(DT)
library(rpivotTable)
library(ggplot2)
library(openintro)
library(highcharter)
library(dplyr)
library(tidyverse)



```

```{r}
data <- read.csv("~/Desktop/R/BeerProject/data.csv")
```


```{r}
stateCount <- data %>% group_by(brewery_state) %>%
  summarize(count = n()) %>%
  arrange(desc(count))

stateCount$brewery_state <- abbr2state(stateCount$brewery_state)

```

```{r}
mycolors <- c("blue","#FFC125","darkgreen","darkorange")
```

Home
==================

Row
------------------

### Data

```{r}
valueBox(paste('Data July 2021'),
color = 'olivedrab')
```

### Highest Brewery
```{r}
valueBox(max(stateCount$brewery_state),
         icon = 'glyphicon-exclamation-sign')
```

### Overall Average Score

```{r}
gauge(round(mean(data$rating_score),
            digits = 2),
            min = 0,
            max = 5,
            gaugeSectors(success = c(0,2),
                         warning = c(2,4),
                         danger = c(4,5),
                         colors = c('red','yellow','green')))
```


### Total Number of Check-Ins
```{r}
valueBox(length(data$beer_name),
         icon = 'glyphicon glyphicon-plane')
```

Column {data-width=350}
-----------------------------------------------------------------------

### Top Breweries With Minimum 5 Samples

```{r}

          
```


### Top States With Minimum 5 Samples


```{r}

          
```

Row
---------------------

### Rating vs Time

```{r}

```

### Country vs Rating

```{r}

                   


```

Map
=========================


```{r}

s <- map_data('state')


highchart() %>%
  hc_title(text = "Count of Beers by State") %>%
  hc_subtitle(text = "Heatmap") %>%
  hc_add_series_map(usgeojson, stateCount,
                    name = 'brewery_state',
                    value = 'count',
                    joinBy = c("woename", "brewery_state")) %>%
  hc_mapNavigation(enabled = T)
```

Table
========================
```{r}
dataSummary <- data %>% select('brewery_state','brewery_name', 'beer_name', 'rating_score', 'global_rating_score')
dataSummary <- setNames(dataSummary, c('Brewery State','Brewery','Beer Name', 'My Rating', 'Global Rating'))

datatable(dataSummary,
          caption = 'Count of States',
          rownames = T,
          filter = 'top',
          options= list(pageLength = 25))

```


Summary {data-orientation=columns}
=========================

Column {data-width = 100}
-------------------------

### Maximum Rating
```{r}

```

### Standard Deviation of Rating
```{r}

```



About Report
=========================

Created by Marcin W. Cencek

marcin.cencek@gmail.com

* Fun Project